home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / dan_ss.inc < prev    next >
Encoding:
Text File  |  1998-07-25  |  3.3 KB  |  222 lines
  1. *---------------------------------------
  2. *
  3. *    â_âjü[ò\Ī
  4. *
  5. *    òKÄEïZüòÆ┤òKÄEïZ
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. dan_sa:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subq.w    #8,d1
  14.     subi.w    #16,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     addi.w    #$0023,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d2
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     rts
  32. @@:
  33.     addi.w    #$4023,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d2
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     rts
  47. *---------------------------------------
  48. dan_ssa_s:
  49.     move.w    C_X(a1),d1
  50.     move.w    C_Y(a1),d2
  51.     subq.w    #8,d1
  52.     subi.w    #16,d2
  53.     tst.w    C_LR_F(a1)
  54.     bne    @f
  55.  
  56.     addi.w    #$0019,d7
  57.     move.w    d1,(a6)+
  58.     move.w    d2,(a6)+
  59.     move.w    d7,(a6)+
  60.     move.w    #$0003,(a6)+
  61.  
  62.     addi.w    #16,d2
  63.     addq.w    #1,d7
  64.     move.w    d1,(a6)+
  65.     move.w    d2,(a6)+
  66.     move.w    d7,(a6)+
  67.     move.w    #$0003,(a6)+
  68.  
  69.     rts
  70. @@:
  71.     addi.w    #$4019,d7
  72.     move.w    d1,(a6)+
  73.     move.w    d2,(a6)+
  74.     move.w    d7,(a6)+
  75.     move.w    #$0003,(a6)+
  76.  
  77.     addi.w    #16,d2
  78.     addq.w    #1,d7
  79.     move.w    d1,(a6)+
  80.     move.w    d2,(a6)+
  81.     move.w    d7,(a6)+
  82.     move.w    #$0003,(a6)+
  83.  
  84.     rts
  85. *---------------------------------------
  86. dan_ssa_a:
  87.     move.w    C_X(a1),d1
  88.     move.w    C_Y(a1),d2
  89.     tst.w    C_LR_F(a1)
  90.     bne    @f
  91.  
  92.     subq.w    #8,d1
  93.     subi.w    #16,d2
  94.     addi.w    #$001b,d7
  95.     move.w    d1,(a6)+
  96.     move.w    d2,(a6)+
  97.     move.w    d7,(a6)+
  98.     move.w    #$0003,(a6)+
  99.  
  100.     addi.w    #16,d1
  101.     addq.w    #1,d7
  102.     move.w    d1,(a6)+
  103.     move.w    d2,(a6)+
  104.     move.w    d7,(a6)+
  105.     move.w    #$0003,(a6)+
  106.  
  107.     addi.w    #16,d1
  108.     addq.w    #1,d7
  109.     move.w    d1,(a6)+
  110.     move.w    d2,(a6)+
  111.     move.w    d7,(a6)+
  112.     move.w    #$0003,(a6)+
  113.  
  114.     subi.w    #32,d1
  115.     addi.w    #16,d2
  116.     addq.w    #1,d7
  117.     move.w    d1,(a6)+
  118.     move.w    d2,(a6)+
  119.     move.w    d7,(a6)+
  120.     move.w    #$0003,(a6)+
  121.  
  122.     addi.w    #16,d1
  123.     addq.w    #1,d7
  124.     move.w    d1,(a6)+
  125.     move.w    d2,(a6)+
  126.     move.w    d7,(a6)+
  127.     move.w    #$0003,(a6)+
  128.  
  129.     addi.w    #16,d1
  130.     addq.w    #1,d7
  131.     move.w    d1,(a6)+
  132.     move.w    d2,(a6)+
  133.     move.w    d7,(a6)+
  134.     move.w    #$0003,(a6)+
  135.  
  136.     rts
  137. @@:
  138.     subi.w    #40,d1
  139.     subi.w    #16,d2
  140.     addi.w    #$401d,d7
  141.     move.w    d1,(a6)+
  142.     move.w    d2,(a6)+
  143.     move.w    d7,(a6)+
  144.     move.w    #$0003,(a6)+
  145.  
  146.     addi.w    #16,d1
  147.     subq.w    #1,d7
  148.     move.w    d1,(a6)+
  149.     move.w    d2,(a6)+
  150.     move.w    d7,(a6)+
  151.     move.w    #$0003,(a6)+
  152.  
  153.     addi.w    #16,d1
  154.     subq.w    #1,d7
  155.     move.w    d1,(a6)+
  156.     move.w    d2,(a6)+
  157.     move.w    d7,(a6)+
  158.     move.w    #$0003,(a6)+
  159.  
  160.     subi.w    #32,d1
  161.     addi.w    #16,d2
  162.     addq.w    #5,d7
  163.     move.w    d1,(a6)+
  164.     move.w    d2,(a6)+
  165.     move.w    d7,(a6)+
  166.     move.w    #$0003,(a6)+
  167.  
  168.     addi.w    #16,d1
  169.     subq.w    #1,d7
  170.     move.w    d1,(a6)+
  171.     move.w    d2,(a6)+
  172.     move.w    d7,(a6)+
  173.     move.w    #$0003,(a6)+
  174.  
  175.     addi.w    #16,d1
  176.     subq.w    #1,d7
  177.     move.w    d1,(a6)+
  178.     move.w    d2,(a6)+
  179.     move.w    d7,(a6)+
  180.     move.w    #$0003,(a6)+
  181.  
  182.     rts
  183. *---------------------------------------
  184. dan_ssa_t:
  185.     move.w    C_X(a1),d1
  186.     move.w    C_Y(a1),d2
  187.     subq.w    #8,d1
  188.     subi.w    #16,d2
  189.     tst.w    C_LR_F(a1)
  190.     bne    @f
  191.  
  192.     addi.w    #$0021,d7
  193.     move.w    d1,(a6)+
  194.     move.w    d2,(a6)+
  195.     move.w    d7,(a6)+
  196.     move.w    #$0003,(a6)+
  197.  
  198.     addi.w    #16,d2
  199.     addq.w    #1,d7
  200.     move.w    d1,(a6)+
  201.     move.w    d2,(a6)+
  202.     move.w    d7,(a6)+
  203.     move.w    #$0003,(a6)+
  204.  
  205.     rts
  206. @@:
  207.     addi.w    #$4021,d7
  208.     move.w    d1,(a6)+
  209.     move.w    d2,(a6)+
  210.     move.w    d7,(a6)+
  211.     move.w    #$0003,(a6)+
  212.  
  213.     addi.w    #16,d2
  214.     addq.w    #1,d7
  215.     move.w    d1,(a6)+
  216.     move.w    d2,(a6)+
  217.     move.w    d7,(a6)+
  218.     move.w    #$0003,(a6)+
  219.  
  220.     rts
  221. *---------------------------------------
  222.